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FROM 
RAMTOP 
Sometimes I wonder 


TIMES users would 
the worid of 


how 
like to enter 
laptops, but “due 
to the lack of Fingnces beyond 


many 


control”, they can’t. This was 
2 Similiar situation I faced 
fast December while wacationing 
in Florids. Ouring the holiday 
shopping spree, I stumbled 
across = cute little taptop 
titled the PC-3 manufactured by 
Laser Computer, Inc. This 
marvelously small laptop fin my 
Opinion? is an economy version 
of the °88 computer by Cambridge. 
Here are the standard features 
and speci fications: 


Software: 


System Utilities 

File Transfer To Personal 
Computers 

Power ful Word Processor 

BO ,000 Word Spelling Checker 
Telephone Directory 

Expense Account Module 
Appointment Book 
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Power Requirments: 
* Batteries or AC Adapter 
Dimensions & ieight: 


* Ih. G oes. 
+ a Be eae ee a 


Furthermore, there is a l minute 
automatic shut-off with a “beep” 
indicator for power conservation, 
warning when the charge 
in the batteries run flow tthe 
PO-3 retains enough power to 
Permit you to change batteries 
without erasing data in memory?, 
and the ability to Jink up to 
either 2@ PC-“Clone or a Macintosh. 


The tote! cost was only £159.95 
Blus teas st Sears {the PC-J is 
not in the catalog?. Thereare a 
Feu options! SCCeEssories |ike 
the FPoget’s II Electronic 


* CAO Processor Theasaurus that gives S00,000 

* 32,000 Character Memory synonyms with 42,000 keyuords , a 

* 2 Line Cisplay, 20 Characters GASIC language cartridge, an AC 
Per Line adapter, plus more. 

* Empansion Sloat 

* Centronics Paraliel Interface This summer, Laser plans to re-. 

# Serial Interface lease the PO-4. This upgraded 

*# Coessette Interface laptop computer utilizes ali the 

# Fuli-Travel Keyboard same interns! firmware temept 


the Typing Tutor} as the PC-3 
But with these fo! lowing 
additions: 


* 280 CMOS Processor Operating 
at 3.568 MHe 

* 3c°K SRAM 

#2 M8 POM Storing prideraes end 
Dictionary 

* High Contrast STN Biue LOO 
Screen 

* 


Personal File 4 Line Display, 4YO Characters 
4 Function Calculator With Per oo 
eich ge ce ee A en cere 
Bieler ey Se gees as | eee eet le 
lee ik ee 
Accessories: | : a ki a ii th 
Sorafiel Brine | mm- sume | * Boater Mth 
* File teannter Cabie = ——— | Language ats ee 
| a rae sitelog aches 
| 
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TIMELIHEZ nevws—-magazine is published 
and is @ Copyright 1989 bu American 
Micro Sustems, Sam Jose, CA 95121. 
TIMELINEZ may be freely copied for non— 
commercial use omly. Repreduction in 
whole or in part for commercial means 
is prohibited bu law. GIVE CREDIT!! 


TT | TIMNESsinclair 
II | user group 
nn | News-Nagazine 


| SUBSCRIPTIONS: $15.68 a year for ten 
testes tU.S./funds only — make checks 
| payable to American Micro Systems. 
ALL ather countries please write far 
Spe on surface and air mail rates. 


SUPPORT FOR: 


j 

I] | TIMEXsinclair's 

| 1906, 1560, 2669 

t 
| Sinclair's 

EE ZH Spectrum+ 128K 

Guantum Leap <¢GiL> 


| CHANGE OF ADDRESS: Flease notify us by 
iphone or by letter to any changes in 
lacerr current mailing address ta prevent 
delay or even loss of service. 


if Cambridge’ s 2Ee 


| RENE¥URL TIME? Starting January 19968, 
all subecriptions will be due aon the 
First month of every year ‘renewals due 
| every Januerw>?. Your mailing label 
fesiil show printed “January 19K", 

where "HX" shows STARTING month of next 
subscription period. New subscribers 
[from th mid-year will receive issues 

1 


from the previous Jian. ALL subscribers 
due in mid 1998 will be pro-rated to 


oer ere 

1 iced ye finish of f the rest of the year ‘Each 

am lscubscriber will be contacted by letter 
a 

j Boer | as to the cost of pro-rate. 


and opinions expressed in the contents of this publication are not necessorily 
those of the management staff or ith advertisers. American Micro Systems 
(DESK-TOP PUBLISHING | | vill not be held liable for ary damage or consequences resulting frog instruc 
FOR THE SINCLAIR GL | | ctions, assertions of face, review of products or companies provided in the 
| magazine's content. It is recommended that anyone attempting to modify their 


computer or constructing an electrical project should seek help frou sore 
knowledgeable individuals. 
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RAMTOP cont. | 
Options! accessories include: | 
* Roget's If Electronic | 
Thesaurus cardiridge 

* Termian! Card 
* Medical and Legs! Dictionaries | 
* Custom Appiications Card 
* 128K SPAM Memory Peplacement | 
| 

i 


As of this time, Laser has not 
released the price on the PO-H, 
however, the starting sales date 
for the laptop is scheduled for 
dune? duly 1990. 


Why are we talking about a non— 
Sincisir design? For the simpie 
reason that connecting ta a GL 
iS possible {works great with 
the Ges program from Sector 
SoOftware designed for the 2H} 
plus Frank Gauwis of 1.5.T.U.G. 
reports success with linking the 
PO-3 to his TS2068 wia a nul) 
modem snd s S210 board. To use 
the two serial ports on the 
Portuguese drives is being re- 
searched as well as linking up 
to the CBB. 


PROGRAM LISTER 
by Timothy Swenson 


Many times I have listed a! 


program on the QL and had a line 
be printed on the perforation, so 
that if I wanted to pull the 
listing apart I would lose one 
entire line. 

Having used a listing 
program with TurboPascal, I 
decided to write a short lister 


program for the QL. The program 
will read in any “ASCII - file. 
This means that you can list 
SuperBasic programs, Pascal 
programs, Quill print files (with 
‘no footers), etc. 

Once the 
running it will 
Pile ce ht. wid 


program starts 
ask:.- you. .for a 
handle any file 
with a proper drive name CMDV, 
FLP, or RAM). It will then ask 
you what typeface to use for 
printing. If you need to make 
copies of the program Bold Face 
will produce copy dark enough for | 


You can 
for nice 


also get 
looking 


most copiers. 
NLQ output 
results. 

You will then be asked if 
you want line numbers added in. 
This is tor listings from 
languages that do not use line 
numbers, like Pascal. The 
program will then start printing. 

The name of the file is 
printed at the top of each page. 
The page number is printed at the 
~bottom of each page. On the last 
page the file name, file size, 
and total page numbers is printed 
out. 
find 


Hope you the 


program useful. 


can 


“100 REMark *x LISTER by Timothy 
Swenson 

110-CLS INK O:: PRENT NS 

EPO-PRINIE Pak ©-G: RAM 
pee CASS 2) ER St 

t3O>-PRINT:” by Timothy 
Swenson’ \\ 

140 PRINT "Enter Name of File to 
bist. 

L5) PRN TS CEnter Drive Name, 
te. -MDV1 22” 

160 INPUT infiles 

170 OPEN_IN #4,infiles 

POO sPRINT ON” Enter Print 
Option” 

£90 Pein. =——— = 

200 PRINT. 1) Regular Print” 

210 PRINT ” 2) Bold Face” 

OPM Gen 28°28 i Ml 3> Double Strike” 

230 PRINT" 4)subtadeke"’ 

240 PRINT.” 5) Near Letter 
Quality’ \\ 

250: INPUT “Enter choice :—” 
;p_opt 

260 PRINT 

270 INPUT "Line Numbers? (y/n) 
"sas 

280 1_opt=0 

290 IF a$="y" OR a$="'Y" THEN 
L-apt=I 

300 CLS 

310 STRIP 4 

S20 Al -10,10; -PRINT "= P Re 
Ph Ge 

S3S0° STRIP: 2 

340 OPEN #3,serl1 


SIE SOI SE OE TSS aE IES 


INELINEZ : 519 


350 PRINT #3, CHRS(27);"0"; 750 PRINT #3,” 
360 PRINT #3, CHRS$(27); 
370 IF p_opt = 2 THEN PRINT #3 


PAGE "; page 
760 PRINT #3, CHRS(12); 


fees 770 END DEFine 
380 IF p_opt = 3 THEN PRINT #43 

; 1G" 3 
390 IF p_opt = 4 THEN PRINT #3 HASH TABLE: 

Pd aide By Tim Swenson 
400 IF p_opt = 5 THEN PRINT #3 

Peal AED What is: hashing: Whetl-is 2 
410 LINEnum=1: page=0: count=1: hashtable? Wella hasn tabie 

size=0 is a data structure that allows 

420 header one to store data for both fast 


j 

| 

i 

| 

i 

| 

! 

| 

! 

| 

{ 

| 

i 

| 
430 REPeat loop | insert and =-fact.= 1 ind. Each 
440 INPUT #4, in$ | piece of data has a unique place 

450 IF EOF(#4) THEN EXIT loop | in a table. 

460 IF 1 opt=1 THEN A Hashing function derives a 
470 IF LINEnum<9 THEN PRINT | number from the data that “is 
#3," fp Nepum:*-?) tnF from 1to WN, where N is the size 
480 IF LINEnum>9 AND of the ~ table: The number is 
LINEnum<99 THEN PRINT #3," where the data is to be stored 
| 
| 


LT Nena eo ins in the table. 
490 IF LINEnum>99 THEN PRINT Some pieces of data may have 
#3,LINEnum;” "”; in$ the same hash number. This 


500 END IF 
510 IF 1_opt=0 THEN PRINT #3, ins 


means that two pieces “of -data 
may try Co pein one place in 


520 LINEnum=LINEnumt1: the table. This is where a 
count=count+l collision routine comes in. 

530 IF l1_opt=0 AND LEN(in$)>79 A collision routine decides 
THEN count=count+1 how-to. find an empty =place in 

540 IF 1 _opt=1 AND LENCin$)>75 the table. The collision 


THEN count=count+1 routine inthe —prosram “listed 

550 size=size+LEN(in$)+1 

560 IF count=57 THEN footer: 
header 

570 END REPeat loop 


580 PRINT #3 


below -looks at the next highest 
place until an empty place is 
found. TiS is net. a. food 
collision routine, but Lt. wild 
do aS an example. 


590 PRINT #3,” File Size The collision routine is 
= ";size also used: whens stryine to find 

600 PRINT #3," Total data in the table. When the 
Pages = "; page wrong data is found at a place 

610 IF 1 opt=1 THEN PRINT #43,” where something else should be, 
Total Lines = ";LINE the collision routine searches 


| 
\ 
| 
| 
620 PRINT #3, CHRS (12); | the next highest place until the 
630 CLOSE #3 | proper data is found. it an 
640 CLOSE #4 empty place is found first, then 
650 REMarkxXXXXKKKXKKXKKKKKKKKKK the. data wanted is not- in fhe 
660 DEFine PROCedure header table. 
670 PRINT #3 The hash routine used in the 
680 PRINT #3," File Name program takes the first and last 

= "s;sinfile$(6 TO) characters in the string, adds 
690 PRINT #3: PRINT #43 them, and performs a MOD 31 to 
700 page=paget1i: count=1 get a number between 1 and 31. 
710 END DEFine Hope. this can be of use fo 
720 REMark XXXXKKKKXKKXKKKKKKKKKKK you. If you have any questions 
730 DEFine PROCedure footer feel free te ask. 
740 PRINT #3 | 100 REMark declare hash table 

| 110 CLS 
z 2 120 DIM ab<st, 10> 
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POTENTIAL HEY MEMBERS 

PLEASE COMPLETE THIS INTEREST 
CARD BELOW ANDO SEND YOUR 415.66 
MEMBERSHIP WITH YOUR CHOICE USER 
GROUP TC: 


AMNERICAH MNICRO SYSTEMS 
2175 fibern Read #262 
San Jose, CH 95121 
(488) 276-9736 


MEMBERSHIP INCLUDES FREE ACCESS 
TO THE POSE LIBRARIES ANO A ONE 
YEAR SUBSCRIPTION TO TIMELINEZ. 
USER GROUP MEETINGS ARE ALWAYS 
OPEN TO THE PUBLIC AT HO CHARGE. 
GUESTS ARE HIGHL’T ENCOURAGED To 
ATTEND. 


HAPPY COMPUTING......THE EDITORS 


ADDRESS: 
CiTy: 


PHONE: 


HOW GID VOU HEAR ABOUT US? 
ST 


FES COMPUTER STORE 
HEUSPAPER/ MAGAZINE 
MEMBER/FRIEND 


WORE WITH A COMPUTER AT YOUR JOB? 
YES No HAKE/MODEL 


DO YOU GUN A COMPUTER? YES____ NO 
MAKE/NGDEL (YOURS) 


1S IT YOUR FIRST? YES NO 


COMPUTER EXPERIENCE (YEARS) (MONTHS) 


PROGRAMMING INTERESTS ARE? 
BASTC___ASSEMBLY____y 
FORTH HACHINE CODE 
PASCAL C COMPILER 


KNOWLEDGE: SOFTWARE_____CHAROWARE 


imi File Server BBS 

Supports: 3/1288 boud at 8,H,i 
Password: va 

Sysop: Steve Hichals 

Phoried : (488) 253-7255 


MOTE: The fini File 
Server BES has been 
supporting the Unix 
files system since 
it's start. It is 
stricktly on WD load 
BES vio A-modem or 
ASCII. For further 
information, please 
contact Bill Hiller. 


Vetware Bivisions 

Supports; 30812082488 baud at 751,55 
Tersinal: UTS2 

Sigop: Kevin Lueng 

Phoned: 415) 793-9265 


] 


ii 


Support for: 

-TIMEXsinclair's 
1688,15082068 
-Combridge 288 
Sinclair's 
Spectrum +128 
and QL 


Peninsula User Group 
311 Michelle Lane 
Daly Citys CA 94815 
(415) 8F6-1773 


Ceorge Mockr-idge 
Walt Johnson 


Third Sundey of each month, 1:38 pe 
Peninsula Hospi tat 

1783 El Comino Real 

Burlingame, CA 


Hey 22, 1998 
dure 17, 1999 
July 5, 1998 


August 19, 1998 
September 16, 1998 
fictober 21, 1996 


TIMEXsinclair Combridse Silicon Yalley Users 
6675 Clifford Drive 

Cupertino, CA 95614 

(488) 23-3175 


Bilt Hitler 


Third Yednesday of each month - 7:06 pe 
Cupertino Libroru Bring your equippant 
Community Room doun access ramp 
1480 Torre Avenue Leading to bottom of 
Cupertino, CA 95814 | circular building 


Moy 16, 1998... . Sed Vednesday 
June 20, 1998... . . 3rd Vednesday 
July 18, 199%... . Sed Uednesday 
Rugust 15, 1998... . 3rd Gednesday 


TaS-B8", TRC. Toapa ond Suncoast Boy Ares Hicro- 


computer Users’ Group, Inc. 
3956 46th Avenue North 
Saint Petersburg, FL 33789 
(B13) 546-4278 


Eric Best, George Featherman, Warren Reed 


Second Saturday of each sonth, 7:38 pe 
Beach Federal Savings and Loar 

777? North Seminole Biyd. 

Sesinole, FL 


Hoy 12, 1998 
dune 9, 1990 


July 14, 19% 
Pugust 11, 199 


CG TIMEXsincioir Combridge $.1.0. 


$C Sig 


The Computer Workshop 
558 Cypress Avenue 
Sunnyvale, CA 94896 
(488) 739-3977 


Mark Uahi 


Everu Soturdey gorning at 16:88 om 
Stanford University 

Jordon Hall {in the Guad 

Roos 388C <dounstairs) 


Hoy 5, 12, 19, 26, 1998 
June 2, 9, 16, 23, 32, 1998 
duty 7. 14, 21, 28, 199% 
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130 REMark initialise hash table 

140 FOR x=1 TO $l 

150 LET a$(x)="" 

160 NEXT x 

170 PRINT "Do you want to ” 

BeOe Py lide < Adbdd ” 

190. PRINT!” F> ind” 

200 INPUT xs 

210 IF x$=""A" OR xS='"a''! THEN GO 

TO 240 

220 IF x$="F" OR x$="f" THEN GO 

LOLSSO 

230 5GOstOel 7 

240 PRINT "Input string to enter 

to table’”’ : 

250 PRINT” 

260 INPUT ins 

270 IF in$S="0" THEN GO TO 170 

280 LET count=0 

290 IF LENCin$)>10 THEN GO TO 
260 


Enter 0 to end” 


300 REMark find place in hesh ~*~ 


table 

310 LET length=LEN Cin$> 

320 LET first=CODE(in$ (1))-32 

330 LET last = CODE (‘(in$ 

(length) )-32 

340 LET hash=first+last 

350 REMark find hash MOD 31 

360 LET hash=hash/31 

370 LET hash=hash- INT Chash)> 

380 LET hash=hashx31 

390 REMark is the place in the 

table empty 

400 IF aS Chash)<>''” THEN GO TO 
460 

410 REMark yes, put string here 

420 LET a$Chash)=in$ 

430 PRINT in$;"’ entered at 

#'; hash 

440 GO TO 240 

450 REMark no, so move down 

table 

460 LET hash=hashtl,.. 


| AMERICAN MICRO SYSTEMS 
| 2175 ABORN ROAD #262(2 /M 
|SAN JOSE, CA 95121) \% jo 
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470 LET count=countt+l 

480 REMark reached end, go to 
beginning 

490 IF hash>31 THEN LET hash=1 
500 REMark is table full? 

510 IF count>=31 THEN GO TO 530 
520 GQ TO 400 

530 PRINT "Hash Table is full” 
540 -GO. TO2170 

550 PRINT "Enter string to find” 
560 INPUT in$ 

570 LET count=9 

580 REMark find place in table 
290 LET length=LENCin$) 

600 LET first=CODECin$(1)>)-S32 
610 LET last = CODE (ins 
(length) )-32 

620 LET hash=firstt+last 

630 REMark find hash MOD 31 

640 LET hash=hash/31 

650 LET hash=hash-INT Chash) 

660 LET hash=hashx31 

670 REMark is it found? 

680 IF a$Chash)<>in$ THEN GO TO 
730 

690 PRINT ans. = round at 
location #"”;hash 

700 GO2 Te 1270 

710 REMark when we reach a empty 
Loo 

720 REMark then not found 

730 IF a&Chash)<>"’" THEN GO TO 
760 

740 PRINT in$;” not found at 
aliv 

750 GO >TOsEz0 

760 LET count=countt+1l 

770 LET hash=hash+1 

780 REMark we have searched 
entire table 

790 IF hash>3i1 THEN LET hash=1 
SOC lr count t= 51 SHEN. GO TO 690 
BuO. CU meet ee 


Federated States of 


Micronesia 


